home *** CD-ROM | disk | FTP | other *** search
/ Megahits 6 / Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / time_ungepackt / time_361_390 / time_367 / db.lzh / ARexx / Reverse.rexx < prev    next >
OS/2 REXX Batch file  |  1994-01-31  |  1KB  |  30 lines
  1. /*****************************************************************************
  2.  * Beispielskript zur Umdehren eines Feldinhaltes ("Meier" => "reieM")       *
  3.  * Genauso könnten auch Inhalte von einem Feld in ein anderes kopiert werden *
  4.  *                                                                           *
  5.  * 22.08.93, Jörg Richter                                                    *
  6.  *****************************************************************************/
  7.  
  8. OPTIONS RESULTS                /* Eingabezeihenfolge soll angefordert werden */
  9.  
  10. ADDRESS DATABASE                  /* Umschaltung auf AREXX-Port von Database */
  11.  
  12. LeftTotal                                        /* Zum Dateianfang springen */
  13.  
  14. weiter = 1                           /* Schleifenüberprüfungsvaribale setzen */
  15.  
  16. DO i = 1 WHILE weiter = 1                               /* Bis zum Dateiende */
  17.  
  18.   GETDATA $F2                                   /* Inhalt des Feldes 2 lesen */
  19.  
  20.   PUTDATA $F2 Reverse(result)                   /* Rückwärts zurückschreiben */
  21.  
  22.   RIGHTONE                                /* Vorwärts zum nächsten Datensatz */
  23.  
  24.   IF RC ~= 0 THEN weiter = 0                         /* Prüfen, ob Dateiende */
  25.  
  26. END
  27.  
  28. LEFTTOTAL                                        /* Zum Dateianfang springen */
  29.  
  30.